home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / Z-Miscellaneous / (c)z4.d64 / computers.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  143 lines
  1. 100 REM "COMPUTERS CAN'T"
  2. 200 REM BY: ALICE LAWRENCE
  3. 300 REM RESOURCE TEACHER/COUNSELLOR
  4. 400 REM LORD NELSON SENIOR SCHOOL
  5. 500 :
  6. 600 GOSUB13600:REM DIRECTIONALS
  7. 700 GOSUB11400:REM COMPUTER
  8. 800 S=1:GOSUB13400
  9. 900 PRINTLEFT$(CC$,20)
  10. 1000 PRINTTAB(17)"CAN'T"
  11. 1100 S=1:GOSUB13400
  12. 1200 READST$
  13. 1300 IFST$="WRITE A PROGRAM."THEN6800
  14. 1400 PRINTLEFT$(CC$,22)
  15. 1500 T=40-LEN(ST$)
  16. 1600 PRINTTAB(T/2)ST$
  17. 1700 S=1:GOSUB13400
  18. 1800 PRINTLEFT$(CC$,23)BL$
  19. 1900 GOTO1200
  20. 2000 DATAKEEP YOU WARM.
  21. 2100 DATALICK A STAMP.
  22. 2200 DATAWALK THE DOG.
  23. 2300 DATASMILE MEANINGFULLY.
  24. 2400 DATAFIND A COP.
  25. 2500 DATAWATCH T.V.
  26. 2600 DATATAKE EXAMS FOR YOU.
  27. 2700 DATAGRIND MEAT.
  28. 2800 DATALOSE WEIGHT.
  29. 2900 DATAHAVE A DRINK.
  30. 3000 DATABOB FOR APPLES.
  31. 3100 DATABAKE A PIE.
  32. 3200 DATARUB IT'S STOMACH & TAP IT'S HEAD.
  33. 3300 DATATYPE.
  34. 3400 DATAGIVE BLOOD.
  35. 3500 DATAHAVE IT'S HAIR DONE.
  36. 3600 DATASPIT.
  37. 3700 DATASCRATCH THE CAT'S EARS.
  38. 3800 DATAJOG.
  39. 3900 DATATAKE OUT THE GARBAGE.
  40. 4000 DATAFIND YOUR GOLD CROSS PEN.
  41. 4100 DATALEND YOU MONEY.
  42. 4200 DATAAPPRECIATE A FRIEND.
  43. 4300 DATAKILL A COCKROACH.
  44. 4400 DATATELL YOU YOUR FLY IS OPEN.
  45. 4500 DATATHINK.
  46. 4600 DATAPAY YOUR TAXES.
  47. 4700 DATAEAT A HOT FUDGE SUNDAE WITH NUTS.
  48. 4800 DATABLESS YOU.
  49. 4900 DATAJOIN L.C.U.C.
  50. 5000 DATAYODEL.
  51. 5100 DATAWRITE A COMPUTER SONG.
  52. 5200 DATASEND A VALENTINE.
  53. 5300 DATAKNIT A SWEATER.
  54. 5400 DATAMAKE SMALL TALK.
  55. 5500 DATAGIVE MOUTH TO MOUTH RESUSCITATION.
  56. 5600 DATABELLY DANCE.
  57. 5700 DATAHANG WALLPAPER STRAIGHT THE FIRST TIME.
  58. 5800 DATALOVE A CHILD.
  59. 5900 DATAVACUUM THE POOL.
  60. 6000 DATAWORRY.
  61. 6100 DATAGET RID OF RING AROUND THE COLLAR.
  62. 6200 DATA RAKE LEAVES.
  63. 6300 DATALAUGH.
  64. 6400 DATASEND FLOWERS.
  65. 6500 DATACARE WHO SHOT J.R.
  66. 6600 DATABALANCE YOUR BUDGET.
  67. 6700 DATAWRITE A PROGRAM.
  68. 6800 GETN$:IFN$=""THEN6800
  69. 6900 T=5
  70. 7000 PRINT"[147]"
  71. 7100 PRINTTAB(T)"      [223][146]     [146]      [146]            [146]"
  72. 7200 PRINTTAB(T)" [146]      [146]     [146]      [146]         [146]"
  73. 7300 PRINTTAB(T)" [146]      [146]     [146]      [146]         [146]"
  74. 7400 PRINTTAB(T)" [146]     [169]     [146]      [146]         [146]"
  75. 7500 PRINTTAB(T)"      [146][223][146]     [146]      [146]         [146]"
  76. 7600 PRINTTAB(T)" [146]      [146]     [146]      [146]         [146]"
  77. 7700 PRINTTAB(T)" [146]      [146]     [146]      [146]         [146]"
  78. 7800 PRINTTAB(T)" [146]      [146]     [146]      [146]         [146]"
  79. 7900 PRINTTAB(T)"      [146][169]    [223]     [146][169]         [146]"
  80. 8000 GETC$:IFC$=""THEN8000
  81. 8100 GOSUB11400
  82. 8200 S=2:GOSUB13400
  83. 8300 PRINTLEFT$(CC$,20)
  84. 8400 PRINTTAB(18)"CAN"
  85. 8500 GETS$:IFS$=""THEN8500
  86. 8600 PRINTTAB(8)"HELP YOU DESIGN A PROGRAM.
  87. 8700 [161]C$:[139]C$[178]""[167]8700
  88. 8800 [153]"LOAD"
  89. 8900 [153]"LOAD      THIS PROGRAM USES BASIC ONLY,"
  90. 9000 [161]S$:[139]S$[178]""[167]9000
  91. 9100 S[178]1:[141]13400:[153][163]15)"INCLUDING:"
  92. 9200 [153]
  93. 9300 [161]S$:[139]S$[178]""[167]9300
  94. 9400 [135]ST$
  95. 9500 [139]ST$[178]"III"[167]S[178]3:[141]13400:[153]"LOAD":[128]
  96. 9600 T[178]40[171][195](ST$)
  97. 9700 [153][163]T[173]2)ST$
  98. 9800 [161]S$:[139]S$[178]""[167]9800
  99. 9900 [153]
  100. 10000 [137]9400
  101. 10100 [131]GET
  102. 10200 [131]TAB
  103. 10300 [131]REM
  104. 10400 [131]GOTO
  105. 10500 [131]PRINT
  106. 10600 [131]GOSUB
  107. 10700 [131]LEFT$
  108. 10800 [131]READ & DATA
  109. 10900 [131]IF.....THEN
  110. 11000 [131]END
  111. 11100 [131]III
  112. 11200 [137]11200
  113. 11300 [143]:THE COMPUTER
  114. 11400 T[178]6:[153]"LOAD"
  115. 11500 [153][163]T)"     (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)
  116. 11600 PRINTTAB(T)"     [165][160][213][195][195][195][195][195][195][195][195][195][195][195][195][201] [167]
  117. 11700 [153][163]T)"     FN PEEK            LEFT$ THEN
  118. 11800 PRINTTAB(T)"     [165] [194] COMPUTERS  [200] [167]
  119. 11900 [153][163]T)"     FN PEEK            LEFT$ THEN
  120. 12000 PRINTTAB(T)"     [165] [202][198][198][198][198][198][198][198][198][198][198][198][198][203] [167]
  121. 12100 [153][163]T)"     (null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR
  122. 12200 PRINTTAB(T)"       C    PET    C[146]
  123. 12300 [153][163]T)"   THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FN
  124. 12400 PRINTTAB(T)"   [206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]
  125. 12500 [153][163]T)"  (null) SINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINWAIT SINSINCLOSE(null)
  126. 12600 PRINTTAB(T)" [206] [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][146] [191][191][191] [205]
  127. 12700 [153][163]T)"(null)                          (null)
  128. 12800 PRINTTAB(T)"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]
  129. 12900 [153][163]T)"TAB(TAB(TAB(                      WAITTAB(TAB(TAB(
  130. 13000 PRINTTAB(T)"     [162]  [162][162][162][162][162][162][162][162][162][162][162][162][162]  [162]
  131. 13100 [142]
  132. 13200 :
  133. 13300 [143] DELAY ROUTINE
  134. 13400 [129] W[178]1[164]918[172]S:[130]W:[142]
  135. 13500 :
  136. 13600 CC$[178]""
  137. 13700 D$[178]""
  138. 13800 U$[178]"ONONONONONONONONONONONONONONONONONONONONONONONONON"
  139. 13900 R$[178]""
  140. 14000 L$[178]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
  141. 14100 BL$[178]"                                       "
  142. 14200 [142]
  143.